home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / T3.M < prev    next >
Encoding:
Text File  |  1991-08-02  |  1.8 KB  |  65 lines
  1. MODULE T3; (*$M+, E MOS, X+ *)
  2.  
  3. IMPORT RandomGen;
  4. FROM SYSTEM IMPORT ASSEMBLER;
  5. (*
  6. IMPORT MathLib0;
  7. *)
  8. IMPORT TOSIO;
  9. FROM InOut IMPORT WriteLn, WriteString, WriteReal, WriteCard;
  10.  
  11. TYPE x = (sdfcgjsdlgjdlgsjdlg, dfgkjdgljdgdfgdfgdsgdfg,
  12.           sdklsjfklsjkefjsefkljefikplf, skefjlwefjlvjslferv,
  13.           kdfjdlgjwkjwejwugijwegjlks, sdfgjsfljsdflksfjlsfcjsfksfjlk,
  14.           sdfkjsflkjfslfjsljsfklsfjlskfs, sjfwefgzhbwzegfjhfg);
  15.  
  16. (*$L-*)
  17. PROCEDURE eiei;
  18.   BEGIN
  19.     
  20.   END eiei;
  21.  
  22. PROCEDURE eio23;
  23.   BEGIN
  24.     eiei
  25.   END eio23;
  26.  
  27. TYPE Str10 = ARRAY [0..1] OF CHAR;
  28.  
  29. PROCEDURE wr (s,s2: Str10); END wr;
  30.  
  31. VAR a,b:LONGREAL; c: CARDINAL; ar: ARRAY [0..0] OF CARDINAL;
  32.  
  33. VAR r: ARRAY [0..1] OF RECORD a,b: CARDINAL END;
  34.  
  35. PROCEDURE tc;
  36.   VAR i: CARDINAL;
  37.   BEGIN
  38.     FOR i:= 0 TO 1000 DO
  39.       WriteCard (RandomGen.Rnd () DIV 8 MOD 2,2);
  40.     END
  41.   END tc;
  42.  
  43. BEGIN
  44.   tc;
  45. (*
  46.   c:= 1;
  47.   c:= ar[c];
  48.   a:= 3.1415926535897931;
  49.   b:= a*a;
  50.   (*ASSEMBLER BREAK END;*)
  51.   a:= MathLib0.pi;
  52.   WriteReal (a, 20, 16);
  53.   a:= 3.1415926535897931;
  54.   WriteReal (a, 20, 16);
  55.   a:= 0.;
  56.   ASSEMBLER
  57.         ;FMOVECR #0,FP0
  58.         ;FMOVE.D FP0,a
  59.   END;
  60.   WriteReal (a, 20, 16);
  61. *)
  62. END T3.
  63. ə
  64. (* $FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFED708C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658C$FFF1658CÇ$0000035AT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000035$000000B9$0000037A$FFED708C$FFED708C$0000038A$0000037A$0000031D$00000378$00000388$FFED708C$00000351$00000360$FFED708C$FFED708C$00000029œÇÇ*)
  65.